home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tools / lernen / dicionar / source / gethelp.mod < prev    next >
Encoding:
Modula Implementation  |  1995-11-25  |  1.2 KB  |  47 lines
  1. IMPLEMENTATION MODULE GetHelp;
  2.  
  3. FROM INTRINSIC  IMPORT PTR;
  4.  
  5. FROM ApplMgr    IMPORT ApplWrite,ApplFind;
  6.  
  7. FROM pSTRING IMPORT APPEND;
  8.  
  9. FROM PORTAB     IMPORT UNSIGNEDWORD,SIGNEDWORD,ANYPOINTER,ANYTYPE;
  10.  
  11. VAR    STGuideBuffer : RECORD 
  12.                                I0,
  13.                                I1,
  14.                                I2 : INTEGER;
  15.                           PathPtr : ANYPOINTER;
  16.                                I5,
  17.                                I6,
  18.                                I7 : INTEGER;
  19.                      END(*RECORD*);
  20.  
  21.     PathBuffer : ARRAY [0..255] OF CHAR;
  22.  
  23. PROCEDURE CallSTGuide(ID: SIGNEDWORD; Text, Topic: ARRAY OF CHAR):BOOLEAN;
  24. VAR Name : ARRAY[0..8] OF CHAR;
  25.     id   : SIGNEDWORD;
  26. BEGIN
  27.    Name:="ST-GUIDE";
  28.    PathBuffer:="*:\";
  29.    APPEND(Text,PathBuffer);
  30.    APPEND(' ',PathBuffer);
  31.    APPEND(Topic,PathBuffer);
  32.    id:= ApplFind( PTR(Name));
  33.    STGuideBuffer.I0:=4711H;
  34.    STGuideBuffer.I1:=ID;
  35.    STGuideBuffer.I2:=0;
  36.    STGuideBuffer.PathPtr:=PTR(PathBuffer);
  37.    STGuideBuffer.I5:=0;
  38.    STGuideBuffer.I6:=0;
  39.    STGuideBuffer.I7:=0;
  40.    IF (id#-1) THEN
  41.        ApplWrite (id,16,STGuideBuffer);
  42.    END(*IF*);
  43.    RETURN (id#-1);
  44. END CallSTGuide;
  45.  
  46. END GetHelp.
  47.